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us: 1. ABSTRACT | 
3 THIS PROGRAN IS IN THO PARTS, AND Is INTENDED TO PROVIDE THE USER WITH 
80 CONPOTER & Ra teHe Buel ee rnaY PART OF He BROGRARCELL G THE USER To 
2 ores TOpNNENOS TA Farr CORE’ LOSATTONS PROV BED THE USER MAY EXECUTE 

83 ONE BR SEVERAL INSTHLICT Sous th ANY LEGAL CPE ENCE™ UATE THE CODE FOR THE 
28 DRIVER IS SIMPLE AND USES NO INTERRUPTS DUE TO THE DESIGN OF T 

8S HARDWARE CERTAIN ERROR CONDITIONS MUST She IDENTIFIED IN ORDER TO 

96 PREVENT MISINTERPRITATION OF THE DESIRED RESULTS. 

BE PART TWO OF THE PROGRAM CONSIST OF SELF CONTAINED ROUTINES TO PERMIT 


89 THE USER TO SET UP AND CHECK THE DELAYS CONTAINED WITHIN THE T 
30 CONTRRELER, BY USING THE SuITCH REGISTER TO SELECT THE APPROPRIATE 


97 2. REQUIREMENTS 
@.1 HARDWARE 
100 A. POP-11 PROCESSOR 
B. TR79 MAGTAPE TRANSPORT (HP-7970E DRIVE) 
102 C. TR79F MAGTAPE CONTROLLER 
105 2.2 STORAGE 


THIS PROGRAM REQUIRES A MINIMUM OF 4K OF CORE 
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3. LOADING 
USE STANDARD BINARY LOADING PROCEDURE 


CEE EEE EEE EE EE EEE EEE EE EEE EE EEE EEE EEE EEE EEE EEE EE EEE EE EEE EEE EE EEE EEE EEEEEEE 


4.0 STARTING PROCEDURE 
THERE ARE TWO STARTING ADRESSES THAT MAY BE USED 


SE@ 0003 


TE DN openir YONG? Aine rOnuek UTR A HORD_COUh"OP =Zo Bn Be bata PATTERN” 


TO MODI AMETERS SEE SECTION 7.1 PROGRAM OFERATION 
NOT Es ‘at 53° One SECTION = oe PROGRRF RESTRICTIONS, THE DEFAULT OF WRITE 
WILL NOT WORK I I 


4.2 204 (8) LA 204 SR=0 A START_AT THIS ADRESS WIL EXECUTE THE SPECIALLY DESIGNED 


a ROUTING: Ne PLOW THE USER TO SETUP OR VERIFY THE DELAYS WITHIN 
HE TR? OLL 


NOTE: ALLWAYS USE SCRATCH TAPES WHEN TAPE MOTION IS INDICATED. 


5.0 RESTRICTIONS 
5.1 A. A PSEUDO-OP OF A 20(8) HAS BEEN PROVIDED TO ALLOW THE USER 


TO 
POWER CLEAR pe TWErH Dae ERAT TONS IF a ti HOWEVER _ THE ee CAN RECOVER FRO 


THIS IS A POWER C I SECONDS TO 
ANY ATTEMPTS To ASSLE oofezry THORS. 10. THE THE E CONTROLLER. WHI Ef Reon 
CUTED. 


R_ IS ALSO GENER H OCCURS 
FROM A RESET INSTRUCTION, THE DRI ER USES NO RESETS, (USE CAUTION 


IF YOU MODIFY THE DRIVER’ PACKAGE) 
* TO"raBe POSITION OR STATUS, the ‘elven PaKace LALL GaceK” These 

BATA AY E gE aah 7.2 TERROR CHECKS). em 

HE edge tehot rik WILL Mace RS ILLEGAL COMMAND ERRORS: 
ATTEMPT TO WRITE B DATA FROM LOAD POINT wirwout AN 1.0.8. 
ATTEMPT TO WRITE A TAPE MARK FROM LOAD POINT 


ATTEMPT TO MOVE TAPE IN REVERSE FROM LOAD POINT 
ATTEMPT TO REWIND FROM LOAD POINT 


£Wwre 


ee -01a oo ENTENO Ge ntiENSES SEEDER URGES e mu 


FOL 


TR79_ UTILITY DRIVER MACY11 27(1006) 22-DEC-76 09:23 PAGE 1-3 
DZTRBB.M11 ee-DEC-76 09:06 ~ SEG C004 


169 S. ATTEMPT TO WRITE AN I.D.B. AT OTHERTHAN LOAD POINT 
i370 B: ATTEMPT TO WRITE DATA WITH THE WRITE RING REMOVED 

171 3° ISSUE A COMMAND WHILE THE MAGTAPE IS NOT RE 

172 8: ISSUE A COMMAND WHILE THE CONTROLLER IS NOT READY 

173 9. ISSUE A COMMAND WITH INHIBIT BIT 

174 io. TLLEGAL FUNCTION. CODES 00-03 05, C6. 11, 12,14 

i 

198 C. THE PROGRAM DOES NO DATA CHECKS ON READ OR WRITE DATA TRANSFERRED. 

179 IT IS THE RESPONSIBILITY OF THE OPERATOR TO MANUALLY EXAMINE THE BUFFER 
180 LOCATIONS TO DETERMINE IF THERE HAVE BEEN ANY PICKED OR DROPPED 

181 BITS IF DESIRED. 

15 ; 

184 D. NOTE: HARDWARE OPERATION OF THE TR-79 SPECIFIES THAT EACH CORE 

185 WORD LOCATION CONTAIN ONE BYTE (BITS 0-7) OF DATA AND PARITY 

186 (BIT 6). THEREFORE MHEN CALCULATING THE WORD COUNT FOR A 

ti ioe ie ge eras ee 

189 SO UO NOTE THAT Fae hi NOT eo, cOMT ia TER 

190 BYTE BEFORE DOING A RITE OPERATION. PARITY MUST BE CORRECT 

131 ON FORE OTHERUISE ERRORS WILE OCCUR ON THE TRANSFER (ODD PARITY) IS ALM 
193 

194 

195 

tap 6.0 CONSOLE SWITCH SETTINGS 

198 SW 1S = 1 STOP AFTER EACH OPERATION (ONLY WITH START 200) 

193 0 PROCEED 

501 SH 14 = 1 STOP AT THE END OF EACH PROGRAM PASS (ONLY WITH START 200) 

ee 0 PROCEED 

504 SW 7 = 1 ENABLE FOR DELAY ROUTINES (EXECUTE ROUTINE ONLY WITH START 204) 

20s 6 ALLOW SELECTION OF DELAY ROUTINES WITH SW O-3 

207 SW 0 THU 3 = DELAY ROUTINE TO BE EXECUTED (ONLY WITH START 204) 

509 

210 6.1 DELAY SETUP TABLE : 

ele CREE EEE EERE EERE EEE EEEEEE EEE EERE EEE EEEEEEE EEE EEE EE EEE EE EEE EEE EEEEEEEEEEEEEE HEHEHE EES 
515 SWITCH I. DELAY 1 MODULE I LOCATION I PRINT I INPUT I OUTPUT I. TIME I 
514 SETING I NAME I TYPE I I PACE IPIN IPIN. I I 
OS Ge gee pee inn ot ail SE ne TNE BRL Scniaeinaasiag ee AE Resa B coenanelical Bs ssananeninilighagealis t 
516 I I I I I I I I 
B17 C3 ~—s«L:NO-OP I I I I I I I 
518 I I I I I I I I 
215 ol [PCR » Ime | Coe Imeel we J Fe [eomurse. | 
eel o2 [PROF Ima J 0-09 [TOIT He 1 Te 190 MILI SEC. 1 
555 03 TERROR CLK IM-302 I C-10 ITO4%-21 H2 I Fe {1 200 NANOSEC. I 
554 I I I I I I I agate 
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04 
OS 
06 
07 
10 
11 
le 
13 
14 
i$ 
16 
17 


— SEQ coos 


: WRITE ENAB : M-302 i C-10 4 T09-3 : Me : Te : 4C MICRO SEC. 
: BUFF CONT i M-304 t 8-18 ; Tli-1 : El t Ji t 1 MICRO SEC. 
i END WR DAT i M-302 i A-16 } Til-1 } Me } Te } 18 MICRO SEC. 
I 1ST WOREQ I M-302 I A-22 [Tll-21 He I Fe } 100 MICRO SEC. 
{ ERASE t M-304 t 8-18 t T09-3 t $1 t M1 I 1 MICRO SEC. 
WRITE IDB M-302 A-16 TO9-1 He Fe 17 MILI SEC. 
; IDB TIMING ; M-302 ; D-13 : TOS-1 : He ; Fe : 7S MILI SEC. 
} ABORT } M-306 } A-2S f T09-3 i He i Te i 1.5 SEC. 

i BUSY DELAY i M-304 : B-18 i TOS-1 ! Rl } Pl f 100 NANO SEC 
: GO BIT DEL t M-304 : B-18 : TO6-1 : D1 ; H1 : 1 MICRO, SEC. 
: M.S.D. : M-302 ; A-22 : TOS-2 : Me ; Te ; 900 MILI SEC. 
eamean Fou Pte Bee pees Be 


I 


Dad 4 4 4-4 4 4 44 a he ee 
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07 


REAARALAA RELL LALA LALA LAAELE RE 


% DELAY CONDITION NOTES # 
HAE REE AEE EEE EEE EER EEE EEE 


NO OPERATION PERFORMED WAITING SWITCH SELECTION AND ENABLE 
POWER CLEAR PERFORMED NO TAPE MOTION DELAY PULSE IS POSITIVE GOING 
POWER CLEAR PERFORMED NO TAPE MOTION DELAY PULSE IS POSITIVE GOING 


NO TAPE HOTT PROgRat poner AN ERROR WITH THE BGL BIT 
IN THE TR STATUS REGISTER (BIT 11) DELAY PULSE IS POSITIVE GOING 


TAPE MOTION 5e progeen DOES A SHORT ERASE WHILE MOVING ie 

TAPE MOTION T_READILY ‘amen WHILE EXECUTING THIS ROUTINE 
DELAY PULSE 18 POSITIVE GOIN 

TAPE MOTION, PROGRAM DOES A 10 avTe warT PROGRAM CHECK 
FOR LOAD POINT ANDO WILL WRIT Te aN BEFORE ENTERING tHe 
DELAY LOOP. DELAY PULSE IS POSITIVE. GOING 
SAME CONDITIONS AS OS DELAY PULSE IS POSITIVE GOING 


SAME CONDITIONS AS OS DELAY PULSE IS POSITIVE GOING 


01 
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+x OPERATION CONTINIOUS THE PROGRAM 
WILL CLEAR THE ERA COUN T BEFORE THE OPERATION IS DONE. 
DELAY PULSE IS NEGATIVE GOING 


11 TAPE MOTION, PROGRAM WILL CONTINIOUSLY WRITE THE 1.0.8. 
DELAY PULSE’IS POSITIVE GOING 


le SAME CONDITIONS AS DELAY 11. DELAY PULSE IS POSITIVE GOING 


13 PROGRAM WILL REWIND TAPE TO L.P. AND FORCE AN ERROR BY DOING 
A WRITE DATA. DELAY PULSE IS POSITIVE GOING. 


14 TAPE WILL MOVE TO L.P. , AND DO A MAXIMUM ERASE. 
WHILE THIS IS HAPPENING PROGRAM WILL LOAD THE COMMAND 
REGISTER TO PRODUCE A LD CTRL PULSE. DELAY PULSE IS POSITIVE GOING 


1S SAME CONDITIONS AS DELAY O04. DELAY PULSE IS NEGATIVE GOING 

16 PROGRAM WILL MOVE TAPE TO E.0.T. AND ATTEMPT TO DO A FAST 
FORWARD TO PRODUCE THE MOTION STOP DELAY. DELAY IS POSITIVE. 
NOTE: oF TER COOP TION OF THIS ROUTINE A MANUAL REWIND 


17 THIS IS A NO OPERATION SAME AS 00 


10 MOTION PROGRAM WILL CHECK FOR LOAD POINT THEN DO A 
max EMU Ie ASE TO MAK et 


OPERATION 


THE PROGRAM IS Ae ait Le cd HOWEVER IT DOES REQUIRE et td OF THE 
Saline ADCUNCTIe! te Cae esa te ieee 
AND ABSOLUTE MODES USING Ne PG ADRESSING fr RECON O THAT THE 
USER READ AND UNDERSTAND THE RESTRICTIONS AND OPERATIONS SECTIONS. 


PROGRAM (L 53. epee START a =0) CAN BE MADEB 
TO ENECUTE, ANY LEGAL, SEGLEN OPERATIONS (SEE SECTION 7.3) BY 
HE COMMANDS IN HE_ OPERATIONS TABLE, (CORE LOCATIONS 722 
The Te). TER H COMMAND SAOULD OCCUPY ONE CORE ey BITS 0-4 
NUMBER OF COMMANDS TO BE EXE SHOULD THEN BE ENTERED 


THE T 
i LS ite core Loe Coeary On SEE” Fie 8 "AR TERED Bh BGRAN DEF ALL t 


IS A SINGLE WR ig ERON LOCATION 2700 
WITH MINIMUM BELAY” BETHEEN OOPERATIONS. OTIS DEFAULT WILL NOT WORK 
IF THE TAPE IS POSITIONED AT LOAD POINT. 


THE DELAY PROGRAM (LOAD 204,START SWITCHES=0) TLL EXECUTE THE DELAY 
SET-UP ROUTINES TO ALLOW SET-UP OF ALL THE DELAYS IN THE TR-79 CONTROLLER 
THE PROGRAM AN ACTIVE SWITCH oo Hie AFTER Wena TING. BY SELECTING 
THE DESIRED DELAY ROUTINE IN SWITCH ti ISTER O THRU 3, AND THEN SETTING 
BIT 7 =1 THE ROUTINE WILL BEGIN EXECUTION. TO CHANGE THE DELAY ROUTINE 
ae aT 7=0 y ° a. SECONDS FOR COMPLETION OF THE ROUTINE, My 

THE NEW ROUTINE NUMBER IN BITS O-3 AND SET BIT 7=1. THE DELA 
PROGRAM CONTAINS” "0 ERROR HALTS, HOWEVER IF ERRORS ARE DETECTED THE 


SEG O00E 
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PROGRAM WILL INFORM THE USER BY OUTPUTTING A BELL CODE TO THE CONSOLE 
TERMINAL. THE PROGRAM WILL THEN DO A CONTROL RESET AND CONTINUE. 


NOTE: THE PROGRAM BUILDS THE CORE DATA BUFFERS EACH TIME THE PROGRAM 
IS STARTED. THE PROGRAM DEFAULT IS LOCATION 
S MAY BE CHANGED BY ON C 
BUILD ROUTINE TO PUT THE BUFFERS ANYPLACE IN THE LOWER 28K. 
THIS PROGRAM DOES NOT PROGRAM THE KT AND DOES NOT RELOCATE 
ABOVE THE LOWER 28K OF MEMORY. 


PROGRAM PARAMETER LIST AND CORE ADRESSES 


PARAMETER LOCATION DESCRIPTION 
EXTENDED 700 BITS 12 AND 13 OF THIS LOCATION REPRESENT 
CORE ADDRESS XBA 16 AND XBA 17 OF THE TR CONTROL REGISTER 
THESE BITS ALLOW RELOCATION OF THE DATA BUFFER. 
UNIT SELECT 702 BITS 8+9 IN THIS LOCATION et at 
UNIT NUMBERS OF THE TAPE DRIVES. A MAXIMUM 
OF 4 DRIVES PER CONTROLLER DEFAULT IS UNIT 0. 
WORD COUNT 704 THIS IS THE 2’S COMPLIMENT OF THE 


NUMBER 
oF WORDS TRANSFERRED. SINCE EACH BYTE gece IES 
A WORD LOCATION THE NUMBER OF CORE LOCATIONS 

aed ofe 5K THE WORD COUNT. PROGRAM DEFAULT 


READ ADRESS 706 CONTAINS ADRESS OF THE READ BUFFER. PROGRAM 
DEFAULT IS LOCATION 6700. 
WRITE ADRESS 710 ab ty ADRESS OF THE WRITE BUFFE 


SEG 0007 


COcRTION¢ CONTA NS 4 aris PATTERN CONT TETOUS IN CORE. 


18 
7 = E 1 AND O BYTES 


fe Hal = HBS AP RAEae 


OGRAN DEFAULT: IS LOCATION 2700 


ERASE COUNT 71e ee 2’S io Nak HL NUMBER re trae TO THE AMO 


0 BE ERASED 


Bes GU FE Pot a 


EACH INCREMENT CAUSES . 
OP tape. TO BE ERASED. 


OPERATION 714 CONTAINS A NUMBER USED IN A TIMER BETWEEN 
DELAY OPERATIONS DEFAULT =000001 MINIMUM DELAY 
OPERATION 716 THIS IS USED IN CONJUNCTION gts LOC. 714 


DELAY MULT. AS A MULTIPLIER IN THE DELAY TIMER. voreat 
IS 000001 MINIMUM DELAY. INCREASING THIS 
NUMBER WILL ALLOW MORE TIME BETWEEN OPERATIONS. 


O1 
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393 
4 OPERATIONS 720 THI L IN CONTAINS THE NUMBER OF OPERATIONS 
38s NUMBER mR 6 Be PERE raeNes IN tHE OF OP TABLE. DEFAULT = 
397 PERATIONS 72 THIS IS 7 GINNING OF THE OPERAT TABLE. 
382 FABLE Flu Tp Ton TO"RE Ore SHOUD Be "Ot 
iO BREE? ey A AiR TE BBP ARE HEN ; 
402 
403 
404 
40S 
406 
497 7.2 ERROR CHECKS AND HALTS 
103 LOCATION DESCRIPTION 
41] 
412 1320 HALT HERE IF THERE WAS AN ATTEMPT TO EXECUTE AN ILLEGAL 
413 FUNCTION DUE TO TAPE POSITION OR SEQUENCE OF INSTRUCTIONS. 
414 LLEGAL COMMAND IS DISPLAYED IN RO WHEN T 
41S PROGRAR Hat HALTS. SEE SECTION 5.18 FOR ILLEGAL FUNCTIONS 
417 ; 1332 HALT HERE IF THERE WAS A HARDWARE ERROR ON THE PREVIOUS OPERATIGN 
418 IF IT IS DESIRED TO BYPASS THE ERROR FLAG NOP THIS LOCATION. 
419 THE COMMAND AND STATUS REGISTER SHOULD BE EXAMINED AT 
420 THIS TIME TO DETERMINE THE PROBABLE CAUSE OF THE ERROR. 
yo] PRESSING CONTINUE WILL CLEAR THE ERROR BY EXECUTING A 
ge CONTROL RESET. 
yoy 1350 HALT HERE IF YOUR OPERATION TABLE LOC.722-766 HAS AN 
4S OPERATION That 1S NOT DEFINED IN THE LEGAL FUNCTION 
425 CODES. RO HAS THE B ODE IN IT,CHECK YOUR TABLE 
nit IN LOCATIONS 722 THRU 
429 14C6 HALT HERE IF BIT 15 OF THE SWR IS SET. THIS IS THE HALT 
430 BETWEEN INSTRUCTIONS. 
432 1432 HALT HERE IF BIT 14 OF THE SWR IS SET. THIS IS THE HALT 
433 BETWEEN PASSES OF INSTRUCTIONS IN THE OP TABLE. 
435 
436 
437 
438 
wi 
malt 7.3 TABLE OF LEGAL FUNCTIONS AND CODES FOR USE IN OPERATIONS TABLE (LOC 722-766) 
“3 CODE FUNCTION 
a 00 *#*%% ILLEGAL #4%% 
44 01 WRITE DATA (ILLEGAL IF EXECUTED FROM LOAD POINT) 


2 ee ens ae a EEEREN aeeee 
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009000 


000007 


wees es wes as ee we 


22-DEC- 


0e 
03 
04 
OS 
06 
07 
10 
11 
le 
13 
14 
1S 
16 
17 
20 
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READ ( DATA, TAPE MARK OR I.D.B. ) 
#22 ILLEGAL #24# 
SPACE REVERSE (ILLEGAL IF ISSUED FROM LOAD POINT) 
H#2% ILLEGAL ##%# 
#22" ILLEGAL 442% 
ERASE 
REWIND (TAPE MOVES AT 160 i.P.S.) ILLEGAL IF ISSUED FROM LOAD POINT. 
442% ILLEGAL ##24% 
#22" ILLEGAL #2%# 
FAST FORWARD (TAPE MOVES FORWARD AT 160 I.P.S.) 
#422 ILLEGAL #### 
WRITE 1.0.8. (ILLEGAL IF ISSUED AT OTHER THAN LOAD POINT) 
442% ILLEGAL #2#2% 
WRITE TAPE MARK (ILLEGAL IF ISSUED FROM LOAD POINT) 
CONTROL RESET ( PROGRAM PSEUDO OP ) 


-ENABLE ABS 
8. PROGRAM LISTING 
- TITLE TR79 UTILITY DRIVER 
-ASECT 


He HEME HE EE AE EE RE EAE HE HEHE HE EE EE EE EEE 
% GENERAL REGISTER DEFINITIONS * 
SH AE EE EE AE SE EEE EE EE 
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KERLL ALLA REALL AL AALAA ALA ALLRAAAE 


508 % R79 REGISTER DEFINITIONS # 
a3 HEHEHE HEHE HE EAE EEE HEHE HEHEHE HE EEE REE EEE 
etd 

$1 164000 rE TRCOM=164000 

$13 164002 . TRSTAT=164002 

Si4 164004 TRWC=164004 

515 164006 TRBA=164006 

By 3 

5i8 : LERLLERE AGREE LEAL EE REEL EE AL EERE EES 
$19 : % PROCESSOR REGISTER DEFINITIONS # 
eet : SETHE SE SE SE EAE EE EE SE EE SEE SEE SESE EE HEE AEE RE EEE 
See 177776 PSW=177776 

S23 177570 SWR=177570 

S24 : 

52S : 

S26 : EERE REE G EEE EE EEE 

527 : * TTY REGISTERS # 

ese ; LERKLEREL RELL AER LES 

530 177564 TTSTAT=177564 

531 177566 TTBUF=177566 

S32 ; 

$33 : 

S34 : 

535 ; 

S36 ; 

$37 : 
$38 ; 

$39 : 

540 ; 

S41 ; 

Se ; EE RER ARERR EEE 

S43 ; * TRAP CATCHERS # 

Bud ; HEE REE RELL EEE 

SHG 00000 5 20 

S47 000200 -REPT 200 

S48 +2 

260 "ENOR 

ssl ; 

SSe : 

553 ; HERRERA RAE EEA E EEE EREEE EEE 
ss4 . : * TARTS AND CORE BUFFER BUILD * 
a4 : tetttiiiiiiirirriiiicciret prrrrrrrs) 
557 

558 000200 .=200 

559 000200 000137 000230 BEGIN: JMP asCORBIL ;NORMAL STAR 

S60 000204 005237 000356 BEGINe: INC d#NORST ;SETS FLAG 70 DETERMINE WHO STARTED 
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000356 


000500 


005001 
00 


000137 
000000 
000500 


000000 


000600 
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000230 


000214 
000216 
002700 
177400 


ooo004 
ooco04 
000230 


006700 
000011 
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CORBIL: 


Xl: 
Xe: 
X3: 


X4: 


SLBDON: 


ALD: 
NORST: 


JMP deCORBIL 


RO 
BNE X32 
ADD #4,R1 
ADD #4°R3 
CMP #230,R1 
BNE X2 
CLR RO 
CLR RI 
INC RO 
INC RI 
MOV RO, (R2)+ 
CMP #6700 
BEQ SLBDON 
CMP #11,R1 
BEQ SLB 
ASL RO 
BR.  SLB1 
TST  d#NORST 
BEQ D 
CLR  a@s#NORST 
JMP  as#DRTN 
JMP  a@s#START 
ooo000 
HHHKLERAKZKLERE 
% STACKS #* 
REKKHKEKELLHEEEE 
.=500 
ooocoo 
=600 
oo0000 


SEG 0011 
;START HERE FOR DELAY ROUTINES 


;SET UP PATTERN GENERATOR 
SET UP PATTERN GENERATOR 
5 SET UP ppt POINTER 
;SET UP COUNTER 


;00_ IT 

D0 TRACK OF HOW MANY 
;CHECK FOR DONE 

;D0 IT 

;KEEP COUNTING 

;LOOP “3 

NEXT PATTERN 

:G0 TO "ad PATTERN 
;DONE YET 


een ee ee we 


;NOT DONE YET 
“CLEAR THE PATTERN GENERATOR 
“CLEAR THE PATTERN COUNTER 

; SET y PATTERN 


:PUT IT IN CORE 

SEE IF WERE FINISHED 

YES JUMP OUT 

;CHECK ON THE BIT POSITION 
RESET THE SLIDING BIT 

:SHIFT THE BIT 

;LOOP AGAIN 

;SEE_ WHERE THE SrraT CAME FROM 


; TAR 
: TEMPORARY LOCATION ° 


;SUBROUTINE STACK 


;SET STACK HERE 


oom UTILITY DRIVER 
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617 

618 

619 

620 

bel 

622 

623 

624 000664 

Smee Bee 
| ee Gee 

6e3 000674 000000 

630 000676 000000 

2 Be Ge 

633 000 177760 

634 000706 006700 

635 000710 002700 

636 000712 177777 

637 000714 000001 

638 000716 000001 

639 000720 000001 

64C 

641 

642 

643 

644 

645 o007e2 000001 

646 0007e4% 000 

647 000726 000000 


NOR ORRE Oke Soman 


moog 
i Rare hi 





D0 
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.=664 

SWRTEM: O0CO 
TIMMUL: 0000 
CONTEN: 900000 

H JUUUUL 
ENP1: 900000 
TEMPe:  Q00000 
EXTCOR: 000000 
UNIT: 00000 
WCNT: -20 
RADOR: . 006700 
WADDR: ~° 002700 
ERSCNT: 1 
OPOLY: 000001 
OPOLX:  QO0001 
OPNUM:  OO0001 
; 
OPTBL: 1 


a 


OOOO AMDOKOOKOOOO0 0000 


SEG 0012 


MEME HE SESE SEE HE SE SESE SEE SEE HEHE HE HEE EE EERE 
% PROGRAM CONSTANTS AND VARIABLES # 
He HE SE HES SEE SEE SE 3 SHH HH EEE 


ee Pie nee FOR SWITCH REGISTER 
i¢ NTA Ad DELAY MULTIPLIER 
TEMP STORAGE FOR COMMAND REGISTE 


MP STORAGE FOR STATUS REGISTER 
Ee STORAGE FOR Fe NoMBES 3p Bo PERATIONS TO BE PERFORMED 
GE FOR THE OPERATION SrENG PERFORMED 
‘BITS To BNO’ 13 ERE ER I6AND XBA 17 
iUNIT SELECT BITS 8 AND 9 
: START OF READ 
;START OF WRITE BUFFER 
sCONTAINS LENGTH OF ERASURE WHEN DOING AN ERASE 


; OPERATION 
;OPERATION DELAY MULTIPLIER 
;NUMBER OF OPERATIONS: 10 BE PERFORMED 


| "Sem dt GF GRERATIOnn to at Ecarone ie ne 


TABLE OF OPERATIONS TO BE PERFORMED MAX =23 * 


SAAESSETIALEAESESEREESEEESETE NER EO TOS ERE OREES NE 


;1ST OPERATION 
;2ND Spenarite 


| itt OPERATION 


EAE A de eae a a EAE EE EERE OEE EES 
# HOUSE KEEPING AND INITIAL PROGRAM PARAMETERS # 
Ne ee ere rere. 


02 
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OZTRBB.M11 #§ 22-DEC-76 09:06 SEQ 0013 
673 001000 .21000 
674 001000 012706 o00600 START: MOV #600,SP ;SET UP STACK AT LOC. 600 
675 001004 012737 OO00340 177776 MOV #340: a8PSW “SET PRIORITY LEVEL 7? NO INTERRUPTS ALLOWED 
676 001012 032737 OO4000 164000 1S: BIT #4000, d#TRCOM “WAIT FOR THE INITIAL 900 MS.POWER CLEAR TO SUBSIDE 
677 00192 001374 BNE ;LOOP UNTILL CONTROL IS READY 
678 001 13701 000720 MOV @#OPNUM,R1 *R1 CONTAINS HOW MANY OPERATIONS WILL BE DONE 
673 001026 042737 176377 000702 UNUM: BIC #176377,a8UNIT | ;STRIP OFF EVERYTHING EXCEPT BITS 8 AND 9 TO SET UP UNI 
681 : 
682 ‘ ee ey LP PERATIONG COMPARTTOR © 
683 : T UP OPERATIONS COMPARITOR 
Pee : cusebnnabeusabeneennaibnnennnnNneee 
686 001034 012702 000722 MOV #OPTBL,Re iRe CONTAINS THE POINTER TO THE START OF THE OPERATINS 
687 OO1040 012737 OOOO11 000674 LOOP: MOV #9. gaTENP ‘THE NUMBER OF LEAGAL OPERATIONS 
688 O0104%8 012703 00144 MOV &8LEGOPS ‘POINTER TO THE BEGINNING OF THE LEGAL OPERATIONS COMPA 
689 001052 012237 00067 MOV (Re) + + SHTENP2 GET THE OPERATION AND PUT IT IN TEMP 2 
690 OO10S6 023723 000676 2s: CMP @aTEMP2, (R3)+ ;CHECK IT AGAINST THE LEGAL FUNCTIONS 
691 001062 O01422 BEQ a INH *IF ITS LEGAL CONTINUE TO EXECUTE IT 
692 001054 005367 177604 DEC TEMP :WASN’T THAT OPERATION SUBTRACT I 
633 001070 001372 ‘ BNE 2% “TRY NEXT ONE 
eae 
697 : MEXERRAAEXRERE REESE RERURER KS ELAXES 
698 : * CHECK FOR A CONTROL RESET + 
oa . SKK SRALARA RAHA AARARASHRAA REA LAKE EE 
701 : 
702 001072 022737 o00020 000676 CMP #20, d8TEMP2 ;SEE IF ITS A CONTROL RESET (PSEUDO OP) 
703 001100 001402 BEQ CR RES :MUST BE A CONTROL RESET J CRE 
704 001102 000137 001344 IMP aeILF :IT MUST BE ILLEGAL FUNCTION STOP THE PROGRA 
705 001106 052767 OO4000 162664 CRES: BIS #4000, UTRCOM :MUST BE A POWER CLEAR SO DO IT TAKES 900 MILI SECONDS 
706 001114 032767 OO4O00 162656 35: BIT #4000; TRCOM *SEE IF DONE WITH POWER CLEAR YET 
707 001122 001374 BNE 3% *WAIT UNTILL DONE 
708 001124 000167 000134 JMP FUDONE ?GET BACK INTO PROGRAM 
710 : 
711 : KEELE HSL ESSLDSEEK RES K ERLE RSL SERA KRELEAAL ELK AKERS 
712 : * CLEAR INHIBIT BIT AND SET UP OPERATION +* 
A 5 RKAKSAARAA SARA AAR ARRRARERARRE SARE KALA AA RAE RES 
71¢ : 
716 001130 005037 164002 QLINH: CLR @aTRSTAT ;CLEAR OUT THE INHIBIT BIT 
717 001134 162703 oo1442 SUB #LEGOPS+2,R3 GET AN OFFSET V 
718 001140 060307 ADD R3,PC *ADD IT TO THE PC AND GO THERE 
720 
7el H KEXKELLA KLE K AERA MESES RAERHAR HERE SS 
722 : OPERATIONS DIRECTORY TABLE * 
2 ; RERKRRAARRAAARAARKRAAKRAARERARRAAAREE 
725 : 
726 OO1:42 goo4ee ls BR WRITE sWRITE INSTRUCTION 
727 001144 Oo04eS R: BR READ *READ INSTRUCTION 
728 O01146 OO04Oi SR: BR +4 “SPACE REVERSE INSTRUCTION 
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OZTRBB.M11 22-DEC-76 09:06 SEG 0014 
7e3 001150 o00432 ER: BR ERSE ;ERASE COMMAND 
Fai oblied | podeug FFOR; NOP iReatND RAARD. COMMAND 
ue $ 
53h BOT tee atest IDB: NOP ERTTE of BURST 
ce 001160 o00240 WIM: NOP RITE TAPE MARK 
735 ; 
736 ; 
737 : pester it ttt ttittittitiitttittitttttttty 
738 : % SET UP UNIT NUMBER AND GO BIT #* 
o3} ; Pettit tttt ti ttit iti tiiitt titi tt ttt ty 
741 : 
742 001162 006337 000676 dcop: ASL ae wire ;SHIFT THE Puc TION INTC THE PROPER BIT POSITIONS 
743 001166 053737 000702 000676 BIS @#UN TEMP2 ‘SET THE UNIT 
oe ota aged ld 000676 BIS StexTcOR, asTEMPe get Tae os MEMORY EXTENSION BITS 
as 
| Bb tSBE 58 417 axe EXECUT Stine TO ore OE TECUTION ROUTINE 
748 
749 . 
750 ; 
751 : gay he te ae 
7S2 ; OPERATIONS SETUP ROUTINES 
a : RM th a RN dh 
755 : 
756 001210 013737 000710 164006 WRITE: MOV @#WADDR, d#TRBA ;SET UP WRITE BUFFER we 
757 001216 O00403 BR  WRIWC : CONTINUE ON TO SET UP W.C. 
758 OO0l220 013737 000706 164G06 READ: MOV oan aeTRBA j SET UP READ BUF GR ADRESS 
759 001226 013737 O00704 I64004 WRIWC: MOV T, a#TRWC ;SET UP WORD COUN 
760 001 000752 BR ot08. : SET UP GO BIT 
761 001236 013737 O00712 164004 ERSE: MOV @#ERSCNT, d#TRWC : SET NUMBER TO INDICATE AMOUNT OF TAPE TO BE ERASED 
oe6 001244 000746 BR SGOB :SET UP GO BIT 
764 : 
765 : auouseupvesueynysesseplparecuevscesseresersetecserenente 
766 . % ROUTINE TO EXECUTE THE FUNCTION AND CHECK FOR DO 
7 ; I gt ce fn Thay EF Mt FR A 
769 : 
770 001246 o00240 bxEcuT: NOP 
771 001250 013737 OO00676 164000 MOY Q@S&TEMP2,aeTRCOM ;DO THE FUNCTION 
772 001256 105737 164000 7$: TSTB a#TRCOM :SEE IF DONE YET 
ore O0le6e 100375 BPL 7§ sWAIT FOR IT 
775 ; 
776 ; 
777 : 
778 ; pTerit ttt ttt ttt ttttttitittttttitttittitit ttt) 
779 . # ROUTINE TO CHECK FUNCTION WHEN DONE # 
reo : peri itttti ttt titi ttt tt ttttt tt ttt ttt ttt 
782 } 
783 001264 013737 164002 000672 bUDONE: MOV @uTRSTAT,aSSTTEM ;SAVE STAT 


US 
784 001272 013737 164000 000670 MOV @aTRCOM,Q8COMTEM ;SAVE COMMAND REGISTER 


DOe2 
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TRBB.M11  22-DEC-76 09:06 SEG O015 
785 901300 032737 040000 000670 BIT #40000, 28COMTEN wes TT AN ILLEGAL COMMAND DUE TO SEQUENCE OR TAPE pos] 
787 001310 00237 000676 ILLCOM: ASR @aTEMPe spiRIe OFF ontte go, git 

oa oo138 5 sis RR1Y WeLT sitet POTOe Ie W gti DISPLAYED 

730 aes hee 100000 900670 ERR ANE: Bee #100000, 28COMTEM E If eR cs 

791 001330 001410 BEQ OPDEL ioe 

792 001332 o00000 ERRIS: HALT :GO ORRROR | Me! HIS HALT TO CONTINUE 

Faq OLSHO BOEES? | BabLOe TLLFUN: ROR SaSEHBE AF YOU GOT ANERROR ONLY RECOVERY IS WITH A CONTROL Ré 
795 001344 013700 000676 ILFUT: MOV @8TEMP2,RO :PUT THE BAD CODE IN RO TO DISPLAY WHEN HALTED 

73 0013S0 000000 ERRIF: HALT :GOT AN ILLEGAL FUNCTION CHECK YOUR PROGRAM LOCATION 72 
798 : 

gag 

801 : RERRARAAA AAA ALLEL SALSA RAR AAA RAK A HK E SSS EE 

go2 : * OPERATION DELAY BETWEEN INSTRUCTIONS x 

aod : REAELSRA ELGAR ELA ASA AALS AK KKA ARES AKL SAAS KSEE 

805 : 

806 001352 013737 000716 O00S66 OPDEL: MOV QSOPDLX,asTIMMUL ;SET OP OPERATIONS DELAY MULTIPLIER 

807 001360 013700 900714 MOV @SOPDLY;RO :SET UP OPERATIONS DELAY TIMER 

BOS GOL BOTS - ONE BS s TIMER IS TICKING 

Bi] OOLS74 peTaiy D0DS66 BRE age SCOUT DOWN THE MULTIPLIER 

gle 001376 e737 100000 177570 grt #100000, aSuR s TIMES UP CHECK SWITCHES To, SEE IF WE HALT OR CONTINUE 
814 001408 o00000 INSHLT: HALT - :STOP BETWEEN INSTRUCTIONS 

815 901410 ( 1 DEC Rl 3-1 FROM THE NUMBER OF OPERATIONS IN Rl 

gi borat Baosoe BR SKIP THE TUNE ere 

818 OO1416 0110137 oo1040 9s: IMP adaeLOOP :D0 THE LOOP AGAIN 

13 O01 Nee Ole? 37 177570 BIT #40000, 34SUR ; CHECK SUITCHES 10_SEE If WE WE HANT TO STOP AT END OF PAS 
821 001432 iene PASHLT: HALT :STOP BETWEEN PASSES 

Bee 001434 030137 901000 RES IMP a@sSTART :GO DO IT AGAIN (NEXT PASS) 

B24 : 

82S : SESE HEE HEHEHE EE HEHE HEE HE HEE EEE AE EEE EEE 

826 : * LEGAL OPERATIONS COMPARITOR TABLE * 

th : RHR LALA LAL SA RRS RER SAAR AKA AHS KES KLEE 

829 001440 oo000 “WRIT 

B50 Obiu4e poceae Lecors: ve READS 

Be Bie BRR se ee ERS 

833 OO14SO O000i0 00010 * REWIND 

SS mies Bale IE arte 

B38 001456 o00043 00017 :WRITE TAPE MARK 

838 , 

939 


@ 
<= 
oO 


TR79 UTILITY DRIVER MACY11 27(1006) 22-DEC-76 09:23 PAGE 1-15 


OZTRBB.M11 22-DEC-76 09:06 SEG OOLE 
841 ; rece t ttt ttt ttt titi tt ttittttttt tite 
842 ; % DELAY SET-UP PROGRAM ROUTINES # 
gig : pets tte ett ttt ttitt titi ttt tt tt eit te 
84S : 
B46 001460 .=1460 
a ater Risener ist DRTN: off #600, SP ;SET STACK — rack 
Bee Te Ee cr onus: He aren eT eters Da 
: 8 
51 001504 Bai 534 Bea $3000, cae Th ike 
8S2 001506 013737 177570 OO0664 BRI: J#SWR, J#SWRTEM CET cuiTCHEs AND PUT THEM IN STORAGE 
8S3 001514 105737 OO0664 Tere aeSWRTEM : SEE IF ENABLE IS UP YET 
8S4¥ 001520 100372 BPL 1 ;LOOP UNTILL ENABLE IS UP 
8SS 001522 042737 177760 O00664 BIC #177760, d#SWRTEM j MASK BITS AND GET A NUMBER BETWEEN 0-16 
856 001530 006337 000664 ASL aaSWRTEM sSHIFT IT LEFT TO MULTIPLY 
8S7 001534 006337 000664 ASL @seSWRTEM : SHIFT AGAIN MULTIPLY BY . TO GET OFFSET 
Bee O01S4¥O0 063707 COObEY . ADD a@#SWRTEM,PC : ADD IT TO THE PC AND GO THERE 
860 : 
861 
862 ; 
863 : 
sista) ; rere etree ttt t ttt ttt ttt ttt titi titi ttt tt ttt} 
86S ; * INDEX TABLE OF DELAY PROGRAM DIRECTIVES + 
3) ; Pertti itt ttt titi tittt titi tititi ttt ttt) 
ekg : 
869 001544 000137 OO1S06 +apLe: JMP @#BR1 ;DELAY 0 IS A NO-OP 
870 001550 000137 OO1644 JMP a@#BRe ;DELAY 1 IS FOR POWER CLEAR 
871 001554 000137 OO1644 JMP @#BRe ;DELAY 2 IS FOR POWER CLE 
87e 60 000137 001662 a#BR3 sDELAY 3 IS FOR OR CLK 
873 001564 001722 JMP @s#BRY ;DELAY 4 IS FOR WRITE ENABLE 
001570 000137 001764 JMP @#BRS ;DE S IS FOR OUT F 
001574 o001 001764 JMP @#BRS sDELAY & IS FOR END WRITE DAT 
876 0001 001764 JMP @s#BRS sDELAY 7 IS FOR FIRST WORD WRITE REQUEST 
1 000137 002120 JMP @#BR10 ;DELAY 10 IS FOR ERASE 
878 001610 137 0021 JMP @#eBR1l ;DE 11 IS FOR WRITE I.D.B. 
879 O01 000137 0021 JMP @#BR11 ;DE le IS FOR 1.0.8. TIMING 
001620 137 002314 JMP @eBRI16 ;DELAY 13 IS FOR ABORT WINDOW 
ies ale pee Te hes ELRY 1s {6 Foe aPLtae DY 
Bg 001634 Spots tee 4 JMP J#BR14 iD LAY 16 2 FOR M.S.D. DELA 
eed 001640 000137 OO01506 JMP @sBR1 ;DELAY 17 IS A NO-OP 
886 : 
887 : 
888 : 
883 
830 ; 
891 : pacerssqpesereotsorseanneeesenitns 
892 : # ROUTINE FOR DELAYS 1 AND 2 
893 : seeuntereianscasdiesausenssareans 
894 i 


695 OO1E44 004537 d0244e Re: JSR RS, adePCL ;D0 A POWER CLEAR 
896 O016S0 105737 177570 TSTB auSwR :CKECK FOR A LOOP 


asta 


897 
898 
9 


TILITY DRIVER 


M11 2e-DEC-76 


001654 
001656 


stat=tatat=tst=t=) 
pee 
a ISN SEE 


00 
002066 


100773 
000137 


012700 


005037 


MACY11 27( 1006) 


09:06 

001506 
000070 
004000 


164002 
177570 


ooe44e 
001505 


o02462 
177777 


0 
177570 
001506 


17787 


001506 


002564 


164000 


164002 


164004 
164000 


164004 


184008 


164000 


FOe2 


22-DEC-76 09:23 PAGE 1-16 


ewowe ooee 


BR3: 
138: 


Cie e oe ec we oe 


$ 
. 
s 
© 
a 
s] 


brs: 


BRSA: 


oo 


R 


R4: 
BRYA: 


C: 


BMI 


BRe 


JMP g#BR1 
JEBEEEHEHHEH HEHEHE 


Bis 5 #400, aNTRSTAT 


ROU 


;D0_IT AGAIN 
GET NEXT TEST 


TINE FOR DELAY 3 


% 
KKAAKLARAALRALAA ALL RALA AALS 


rt LsFesra 


TSTB @#SWR 


BMI 
JSR 
JMP 


BMI 
JMP 


BM 
JMP 


BR3 
RS, J#PCL 
aeBR1 


 dededed-t-teh-4-Seh-ked-$-$-4a-$-heb-Sehahetad-te-ded-d-lalabel 
% ROUTINE FOR DELAY 4 AND 15 


PERC WP ep n ERR MULTIPLIER 
i TIMER IS TIC 


a nou TE ne 


at 40 ho IT AGAIN 


i THERE FOO A POWER CLEAR AND GET THE NEXT ONE 


GET THE NEXT DELAY DIRECTIVE 


% 


KEAAALAAAALAAL AAA LERE LEAL A RL LEEE 


RS, d#RDY 


#-1, d#TRWC 
#17, a8TRCOM 


RS, J#RDY 
RS’ aHERCK 


TeTB aaSWR 
BRYA 


d#BR1 
¥ 


RS, J#OFLP 
DaTRSTAT 


d#BR1 


oe Be 


jE EK FOR READY 


THIS ge USED FOR AN ERASE COUNT 


‘00 i ERA 
;WAIT pith DONE 

:SEE IF ERRORED_ OUT 
;SEE IF WE LOOPON TEST 
:LOOP HERE AND DO IT 


AGAIN 
;GET OUT AND GET NEXT DELAY DIRECTIVE 


SEEM MESE SESE EAE SE EEE SEE SESE EE EEE a EE 
UTINE FOR DELAY S , 6 AN * 
rilittitititttitiitiitiiitititiriiies! 


;SEE IF WE ot AT LOAD POINT 
; CLEAR INHIBIT BIT 

;Se) s FOR A_10 BYTE WRITE 

E ee WRITE ADRESS BUFFER 


0 IT AGAIN 
GET OUT AND GET ONEXT DELAY DIRECTIVE 


egege ee ae a ee agg 


* ROU 


TINE FOR DELAY 


SeKeee SES EEAESTAEEEEEERENES 


RS, J#REW 


ae TRWC 
#17, a8TRCOM 
aeTRCOM 


;00 A REWIND GET TO B.0 

:CHECK FOR END OF 1 anvway 
:CLEAR THE INHIBIT BIT 

;CLEAR THE WORD COUNT 

:D0 AN ERASE 

;FORCE A LOAD PULSE 


a -_ H B.G.L. SIT 


| SEG 00:7 


“ 

G02 
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953 002072 105737 177570 TSTB aeSWR ; SEE IF WE WANT TO LOOP 
954 002076 100004 BPL BREB LL D 

955 002100 105737 164000 TSTB a@#TRCOM SEE IF ERASE IS DONE YET 
956 002104 100370 BPL BREA : NOT PON. DO ANOTHER LOAD PULSE 
957 002106 000756 BR BREC D0 Wy AGA 

958 002110 o04S37 OO0e44e BR6B: JSR RS,ad#PCL DO A CLEAR AND EXIT 
ry, 052114 000137 001506 IMP a#BR1 :GO BACK TO MAIN 

961 

3962 : 

963 : 

964 : geen te ane mas ee 

96S ; # ROUTINE FOR DELAY id 

ee qeenasunannansosssnncuaeeses 

968 002120 004537 002614 BRO: JSR RS,d#ETS ;CHECT FOR E.0.T 

969 002124 004537 002530 JSR RS,a#OFLE : GET US OFF LOAD POINT 
970 002130 005037 164002 CLR astRSTAT ; CLEAR ay 

971 002134 012737 O00017 164000 MOV #17, a8TRCOM :D0 A MAXIMUM ERASE 

972 O02142 012700 o0S5000 BRIOA: MOV #5000, RO ‘SET UP COUNTER 

973 002146 005300 BRIOB: DEC RO ; START gdh 

974 002150 001376 BNE  BR1OB TIMER IS TICKING 

975 O0021Se 005037 164004 CLR a@#TRWC RE ESTABLISH THE ERASE COUNT TO 0 
976 002156 105737 177570 TSTB a@s#SWR ; SEE IF WE LOOP HERE 

977 O02l62 100767 BMI  BRIOA T A AGAIN 

978 002164 O004S37 ooe44e JSR RS,ae#PCL 'D0 A POWER CLEAR 

Le 002170 000137 O01S06 IMP aeBR!} :GET OUT AND GET THE NEXT DELAY DIRECTIVE 
981 : 

982 : 

983 : 

984 : 

98s 

986 ; 

987 : age a ye ye 
988 : % ROUTINE FOR DELAY 11 AND le 

eee ; SeRETSDEESEASS EES EESEREEAEESAEIARES 
991 002174 004537 O02S564 bri: JSR RS,d#REW ;D0 A REWIND 

992 002200 012737 000033 164000 MOV #33, a8TRCOM :WRI TE AN I.D.8. 

993 002206 004537 O0e4%6e2 JSR RS, QeRDY * CHECK FOR DONE 

994 O022ele 004537 002500 JSR RS‘ a#ERCK : SEE IF ANY ERRORS UP 
995 002216 105737 177576 TSTB SHUR : SEE IF WE WANT TO LOOP 
996 O0ee2e 100764 BMI LOOP = DO IT AGAIN 
997 002224 004537 o0e44e2 JSR Be! SePCL :DO A POWER CLEAR 

eae 002230 000137 O01S506 IMP aaBR1 ;GET OUT AND GET NEXT DELAY DIRECTIVE 
1000 

1001 

1002 

1003 

1004 peer etttee titi titi titi ite! 


* ROUTINE FOR DELAY 16 # 
RRA K RARE EEE EEE REE EE EE EERE 


bei: TSTB = as#TRSTAT ;CHECK FOR EOT UP 


_ 
So 
hata 

Cif\es ec wees es es es were 


1008 002234 105737 164002 


Oe 
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002240 100407 BMI  BR14YA -SKIP THE FAST FORWARD 
005037 Aeuoge CLR  aaTRSTAT :CLEAR_INHIBIT 
1 002? 164000 MOV #27, a8TRCOM ‘D0 A FAST FORWARD 

002254 004537 O02462 JSR RS. aBRDY ;WAIT TILL DONE 
00: 005037 164002 BRIYA: CLR jateet TAT CLEAR INHIBIT 
002264 012737 000027 164000 MOV oo aeTRCOM TRY A FAST FORWARD .SHOULD PRODUCE ERROR 
092272 004537 002462 JSR RE. aR ROY " ;HAIT TILL DONE 
002276 105737 177570 TSTB Sasi ;SEE IF WE LOOP HERE 
002302 100766 BMI  ®BRIY :YES LO R 

304 7? o02442 JSR RS aaPCL *DO A POWER CLEAR 
002310 000137 O0i1SO6 IMP = BBR GET OUT DO NEXT DELAY 


RLKAALAAALA LALA RELA ERLE LALERE 


* ROUTINE FOR DELAY 13 # 
HEHEHE HEHEHE AE HEHE HE HE AE EE EE HE 


002314 004537 002564 brie: JSR RS, d#REW ;D0 A REWIND 


002320 005037 164002 CLR  astRSTAT CLEAR INHIBIT 
002324 012737 177000 164004 MOV #177000 Q¥TRUC SET UP ERASE COUNT 
002332 012737 000017 164000 MOV aeTRCO -DO AN ERASE 
002340 004537 O02462 JSR Re ARDY sHALT FOR IT 
002344 004537 002564 JSR RS, a#REW *REWIND IT 
002350 004537 002530 JSR RS. asOFLP ;GET OFF LOAD POINT LEGALLY 
002354 12737 177760 1e4004 BRIGA: HOV 4-20 oaTRUC 
36 pier 3s reaps CLR a@aTRSTAT SET UP CORE anpee 

002374 012737 OO00003 164000 MOV #3, a8TRCOM -NOW TRY TO UaTE NOTHING. SHOULD ABORT 
002402 012701 000010 BRI6B: MOV #10,R1 ;SET UP TIME MULTIPLIER 
002406 005000 BRI6D: CLR RO :CLEAR TIMER 

10 00 BRI6C: INC RO “TIMES WAISTING 
002412 001376 BNE  BRIEC ‘TIMER RUNNING 
002414 005301 DEC RI =] FROM MULTIPLIER 
002416 001373 BNE  BRIGD :SEE IF DONE YET 
002420 004S37 oD244e JSR RS, as#PCL ?CLEAR ERRORS 
002424 105737 177570 TSTB aKSWR : LOOP ??? 
002430 100751 BMI RIGA :DO IT AGAIN 
002432 004537 oDe44e JSR RS, as#PCL POWER CLEAR 
002436 000137 OooiSo6 JMP aOR] “ALL DONE GET SOME MORE 


’ 

’ 

: RE AG EAE K EAE LEELA REE EE EERE ES 
; * SUBROUTINE FOR POWER CLEAR # 
; HEE AR AREER AL AERA ELE REEL EE EX 
s 


oo2442 052737 OO4000 164000 PCL: BIS #4000,a8TRCOM fret! POWER CLEAR 
002450 032737 OO4000 164000 PCLI: BIT #14000, a#TRCOM WAIT FOR 900 MILI SECONDS 
O0e456 001374 BNE PCL STIL LL WAITING 

60 RTS RE RETURN TO MAIN ROUTINE 
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ZTRBB.M11 22-DEC-76 09:06 SEG 0029 
10s : eet ets t tt tit tt ttt ttt ttt tit ttt ttt tt titittttte 
106 : % SUBROUTINE FOR READY AND CLEAR INHIBIT +* 
1068 ; eee eet tet i tt ttt ttt ttt ttt ttt tttititt 
4 : 
107C . 

1071 OS824%62 105737 164000 Roy: TSTB @#TRCOM ;CHECK ON DONE BIT 

107 oy 100323 rh Y sWATT T 

1073 0024 42737 OCOO0l 164002 IHB: I #1,d8TRSTAT ;CLEAR NHIBIT BIT 

ioe 002476 o00205 RTS RS s;RETUN TO MAIN ROUTINE 

1076 : 

1077 ; 

1078 : petit ttt t ttt titi ttt tt ttt ttt titi titi. 

1079 ; % SUBROUTINE TO CHECK FOR ERRORS # 

10 : Pec ettitittttttttttt itt titt titi titi t tt 

1082 : 

1083 002500 005737 164000 éRcK: TST @8TRCOM ;SEE IF ERROR IS UP 

1084 002504 100010 BPL ERCKe2 :NO ERRORS JUMP OUT 

108S 002506 012737 000007 177566 MOV #87, a#8TTBUF : GOT AN ERROR RING A BELL 
1086 002514 105737 177564 ERCK1: TSTB a8 trstat ar — 

1087 002520 100375 BPL ERCK1 THERE 

1088 O0eS2e 004537 oo0244e JSR RS,@dsPCL Or EAR HE ERROR WITH A POWER CLEAR 
ie O0eS26 000205 ERCK2: RTS RS ?GO BACK TO MAIN 

1091 : 

1593 

1094 : eset ee ttt titi ttt ttt ttt ttt ttttttttitttt ttt ty 
1095 : * SUBROUTINE TO GET OFF LOAD POINT LEGALLY +#* 
1038 : eesti i titi ti titi titi iti iti titi ttt ttt ttitt) 
1098 : 

1099 002530 032737 OO0040 164002 bFLp: BIT #40, a8TRSTAT ;SEE IF LOAD POINT IS UP 
1100 poeeae 4 4 RF ;NO \ UMP OUT 

1101 00254 0 penne L #TRSTAT ;CLEAR THE INHIBIT 

tgs ppeees goaesy posses 164000 WSR ORE BEROY SHAETE Ot 120.8. 

tia pastes Bpaees meses JSR  RS;ERCK :CHECK FOR ERRORS 

td 002562 000205 OFLP1: RTS RS :GO BACK TO MAIN 

1107 : 

1108 ; 

1109 : pg ee eg aye 

1110 ; % SUBROUTUNE FOR REWIND AND L.P. 

iit} : SUUREREERRUERERUDAESSEESULEEEELEDSES4 

Hc 1 cn a a oe cage 
1115 002574 005037 164002 REW1: CLR @&sTRSTAT CLR THE INHIBIT 

1116 002600 012737 o00021 164000 MOV #21,a8TRCOM :D A REWIND 

1117 002606 004537 O0e%6e2 JSR RS, J#RDY “WAIT Tout DONE 

tis O0eb1e g002e05 REW2: RTS RS G0 BACK 

1120 


RERLRERELAARLRALAA RARE RALARAS 
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ll2l 
lle2 


— 
~ 
fat) 
Ww 


14 165737 
Scio 100002 
002622 004537 
Oc2626 000205 


ee ew be ae ee en ae a ae Be ee ee ne ee ee ee ee ee ee be ae bs be be ee he ee ee ee he oe 
QUE ee Torro Onn £ eee eee ee CQWWWwWwwwwwrormrunmrurnD 
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164002 
002564 


OSS SS SS SS SS SS SESS SOSS SS SS SS SFOS SS SS SESS SESE SESS SSE SS SESS SS SESS SS SESE SES BE OS SS Oe Os Oe ee Oe ee 


JOe2 
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% SUBROUTINE FORE.O.T. # 
JHE 


ETS: TSTB a@#TRSTAT 
B ETS 


1 
JSR RS, a#REW 
RS 


51S cf OF ky UP ? 
:NOT AT E.0.T 

:D0_A REWIND 

;GET BACK 


HEE EE EEA AE EE EEE ER EE EEE 
* WRITE BUFFER PATTERNS # 
JEM EHEE HEHEHE EEE 


=2700 

REPT 1000 
WORD 000777 
ENDR 
.=3700 
-REPT 1000 
-WORD Q00400 
WORD 000777 
ENDR 

=4700 

EPT 1000 
WORD Q00S525 
WORD 000652 
ENDR 

=5700 

REPT 1000 
WORD 000001 
WORD  Q00002 
WORD Q00004 
WORD 00010 
WOR! 000020 
. WOR’ pono” 
“HOR 2 
Word §o0900 
.ENDR 


;ALL 1°S 
sPATTERN = 0 COO O00 11i ili 111 


; *S_AND 0°S ALTERNATE WORDS 
;PATTERN = 0 000 000 100 900 000 
;PATTERN = 0 O00 OOO 111 111 111 


s ALTERNATE BITS 
;PATTERN = 0 000 900 1 ip 


1 
:PATTERN = 0 000 O00 110 


SLIDING 1 BIT 
‘PATTERN = 0 O00 OOO O00 000 O01 
‘PATTERN = 0 000 000 O00 000 010 
‘PATTERN = 0 000 000 900 

PATTERN = 0 000 O00 000 001 O00 
; PATTERN = 9 000 O09 000 019 090 
Patten = 2 500 589 BBY Ape 

POTTER = 9 8 ORG TH8 288 BE 


sey yar eee 


* READ BUFFE 


secuseeauahuadsenerseses 


‘SEG 0021 
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-MIl  22-DEC-76 09:06 SEQ 0022 
1177 ; 

1178 : .=6700 ;1000 WORD LOCATIONS RESERVED FOR READ SUFFER 

1180 : 

i18! 00°01 .END 


02 
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OZTRBB.M11 § 22-DEC-76 09:06 SYMBOL TABLE SEG 0022 
ALD 000352 BREA ~=ss«OO 0b EXTCOR 000700 PSW 0 = - 177776 TEMP2 000676 
BEGIN 000200 BREB 002110 FFOR 001154 R 001144 TIMMUL OO0666 
BEGINe 000204 BR6C O02044 FUDONE 001264 RADDR 000706 TRBA = 164005 
BR1 001506 CLINH 001130 IDB 001156 RDY 002462 TRCOM = 164000 
BRiO 002120 COMTEM 000670 IHB 002470 READ 001220 TRSTAT= 164002 
BRiOA O0e142 000230 ILFUT 001344 REST = 164004 
BRIOB O02146 CRES 00 ILLCOM 001310 REW 002564 UF = 6 
BR11 002174 DROUTS 001476 ILLFUN 001340 REWD 001152 TTSTAT= 177564 
BR1Y 2 DRT 001460 INSHLT 01406 REM oe 74 UNIT 
BR1YA 60 001150 LEGOPS 00144 Wd le 
BRIG 002314 ERCK 002500 OOP 001040 SG0B ©-—«oO1 162 01142 
BR16A oge3s4 ERCK 02514 NORST 000356 SLB 000302 WADDR 
BR16B ERCK, 02526 OFL 002530 SLBD0N 000334 WCNT 7 
BRI ERDONE 1326 OFLP1 00256 SLB1 #000310 ‘WRITE 001210 
Re Tea RRIY O01 OPOLX  ObUTie 51000 WIM DOLieS 
oe ue 
BRS N01662 RR1S 1360 PDLY neat other BESS Xl Bf 24 
BRY 1 ERSCNT 000712 OPNUM 000720 SUBSTK 00050 x2 000244 
BR 7 001236 OPTBL 000722 = 17757 x3 ood2s0 
BRS 001764 ETS 002614 PASHLT 001432 SWRTEM OO0664 x4 oo0264 
BRSA 001774 ETS! O0?626 PCL 002442 TABLE O01S544 7 = 002630 
BRS 002040 EXECUT O01246 PCL1  O024S0 TEMP! 000674 


- ABS. 002630 000 


ERRORS DETECTED: 0 
DEFAULT GLOBALS GENERATED: 0 


DZTRBB DZTRBB=DZTRBB.. M11 
RUN-TIME: .3 SECONDS 
RUN-TIME RAT io: 53/14=3.6 
CORE USED: Sk (9 PAGES) 


M02 
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